home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #04 (1987)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #04 (1987)(Amiga User Gruppe Einzugsgebiet 4000).adf / Quellen / warte.asm < prev    next >
Assembly Source File  |  1999-12-31  |  480b  |  24 lines
  1.    movea.l  4,a6
  2.    movea.l  #INT,a1
  3.    clr.l    d0
  4.    jsr      -552(a6)
  5.    move.l   d0,a6
  6.    tst.l    d0
  7.    beq      Abort
  8.    move.l   #1,d0
  9.    movea.l  #TEXT,a0
  10.    move.l   #200,d1
  11.    jsr      -90(a6)
  12.    clr.l    d0
  13. Abort:   rts
  14.       DATA
  15. TEXT: dc.w  50
  16.       dc.b  90
  17.       dc.b 'Ein "Klick" der linken Maustaste beendet den Sound ',0,1
  18.       dc.w  122
  19.       dc.b  194
  20.       dc.b 'Digitizersoftware von BEN & CTB, Essen 1986/87'
  21.       dc.b 0,0
  22. INT:dc.b 'intuition.library',0
  23.  
  24.